home *** CD-ROM | disk | FTP | other *** search
/ Programming Sound Cards / Programming Sound Cards.iso / sound_13 / bgdemo.pas < prev    next >
Pascal/Delphi Source File  |  1995-01-01  |  397b  |  15 lines
  1. Program back_ground_demo;
  2.  
  3. uses crt,bgsound;
  4.  
  5. begin
  6.   writeln('Building music');
  7.   PlayMusic('T80 O4 L8 GFE-FGGG P8 FFF4 GB-B-4 GFE-FGGG GFFGFE-');
  8.   writeln('Music is playing');
  9.   while BGSPlaying do begin  { wait for music to end }
  10.     if WhereY = 25 then ClrScr;
  11.     writeln('The program can continue processing while the music is playing')
  12.   end;
  13.   writeln('Music is done')
  14. end.
  15.